home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_mc.idb / usr / freeware / lib / mc / extfs / arfs.z / arfs
Encoding:
Text File  |  1998-10-28  |  971 b   |  46 lines
  1. #!/bin/sh
  2. #
  3. # Written by    Alex Kuchma <ask@bcs.zp.ua>
  4. #               Alex Tkachenko <alex@bcs.zp.ua>
  5. #
  6. # (C) 1997 The Free Software Foundation.
  7. #
  8. #
  9. XAR=ar
  10. XUNAR=ar
  11. XARINFO="ar tv"
  12.  
  13. mcarfs_list ()
  14. {
  15.         YEAR=`date | cut -f 6 -d ' '`
  16.         XUID=`ls -l $1 | cut -c16-24`
  17.         XGID=`ls -l $1 | cut -c25-33`
  18.         $XARINFO $1 | awk -v uid=$XUID -v gid=$XGID -v year=$YEAR '
  19.         {
  20.                 date = $(NF-1)
  21.                 if ( date == year )
  22.                 {   
  23.                     date = $(NF-2)
  24.                 }
  25.                 perms = substr($1, 1, 9)
  26.                 printf "-%9s 1 %-8s %-8s %8d %s %s %s %s\n", perms, uid, gid, $(NF-5), $(NF-4), $(\
  27. NF-3), date, $(NF)
  28.         }' 2>/dev/null
  29. }
  30.  
  31. mcarfs_copyout ()
  32. {
  33.     $XUNAR p $1 $2 > $3
  34. }
  35.  
  36. # override any locale for dates
  37. LC_ALL=C
  38. export LC_ALL
  39.  
  40. case "$1" in
  41.   list) mcarfs_list $2; exit 0;;
  42.   copyout) shift; mcarfs_copyout $*; exit 0;;
  43.   copyin) shift; mcarfs_copyin $*; exit 0;;
  44. esac
  45. exit 1
  46.